home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / add / controlloop.s < prev    next >
Text File  |  1997-01-31  |  47KB  |  2,442 lines
  1. ; Main control loop.
  2. ; This is the very outer loop of the program.
  3.  
  4. ; What needs to be done and when?
  5.  
  6. ; Black screen start.
  7. ; Load title music
  8. ; Load title screen
  9. ; Fade up title screen
  10. ; Select options
  11. ; Play game.
  12.  
  13. ; Playing the game involves allocating screen and
  14. ; level memory, loading the level, loading the
  15. ; samples, loading the wall graphics, playing the
  16. ; level, deallocating the screen memory....
  17.  
  18. ; Control part should therefore:
  19.  
  20. ; 1. Load Title Music
  21. ; 2. Load title screen
  22. ; 3. Fade up title screen.
  23. ; 4. Add 'loading' message
  24. ; 5. Load samples and walls
  25. ; 6: LOOP START
  26. ; 7. Option select screens
  27. ; 8. Free music mem, allocate level mem.
  28. ; 9. Load level
  29. ;10. Play level with options selected
  30. ;11. Reload title music
  31. ;12. Reload title screen
  32. ;13. goto 6
  33.  
  34. INTROTUNEADDR: dc.l 0
  35. INTROTUNENAME: dc.b 'ab3:sounds/abreed3d.med',0
  36.  even
  37. TITLESCRNADDR: dc.l 0
  38. TITLESCRNNAME: dc.b 'AB3D1:includes/titlescrnraw',0
  39.  even
  40. TITLESCRNNAME2: dc.b 'AB3D2:includes/titlescrnraw1',0
  41.  even
  42. OPTSPRADDR: dc.l 0
  43.  
  44.  
  45.  
  46. ProtValA: dc.l 0
  47. ProtValB: dc.l 0
  48. ProtValC: dc.l 0
  49. ProtValD: dc.l 0
  50. ProtValE: dc.l 0
  51. ProtValF: dc.l 0
  52. ProtValG: dc.l 0
  53. ProtValH: dc.l 0
  54. ProtValI: dc.l 0
  55. ProtValJ: dc.l 0
  56. ProtValK: dc.l 0
  57. ProtValL: dc.l 0
  58. ProtValM: dc.l 0
  59. ProtValN: dc.l 0
  60.  
  61.  
  62. KVALTOASC:
  63.         Dc.b    " `  "," 1  "," 2  "," 3  "
  64.         dc.b    " 4  "," 5  "," 6  "," 7  "
  65.         dc.b    " 8  "," 9  "
  66.         Dc.b    " 0  "," -  "," +  "," \  "
  67.         dc.b     '    ','    '," Q  "," W  "
  68.         dc.b    " E  "," R  "
  69.         Dc.b    " T  "," Y  "," U  "," I  "
  70.         dc.b    " O  "," P  "," [  "," ]  "
  71.         dc.b    '    ','KP1 '
  72.         Dc.b    'KP2 ','KP3 '," A  "," S  "
  73.         dc.b    " D  "," F  "," G  "," H  "
  74.         dc.b    " J  "," K  "
  75.         Dc.b    " L  "," ;  "," #  ",'    '
  76.         dc.b    '    ','KP4 ','KP5 ','KP6 '
  77.         dc.b    '    '," Z  "
  78.         Dc.b    " X  "," C  "," V  "," B  "
  79.         dc.b    " N  "," M  "," ,  "," .  "
  80.         dc.b     " /  ",'    '
  81.         Dc.b    '    ','KP7 ','KP8 ','KP9 '
  82.         dc.b    'SPC ','<-- ','TAB ','ENT '
  83.         dc.b    'RTN ','ESC '
  84.         Dc.b    'DEL ','    ','    ','    '
  85.         dc.b    'KP- ','    ','UCK ','DCK '
  86.         dc.b    'RCK ','LCK '
  87.         Dc.b    'FK1 ','FK2 ','FK3 ','FK4 '
  88.         dc.b    'FK5 ','FK6 ','FK7 ','FK8 '
  89.         dc.b    'FK9 ','FK0 '
  90.         Dc.b    'KP( ','KP) ','KP/ ','KP* '
  91.         dc.b    'KP+ '
  92.         dc.b    'HLP ','LSH ','RSH '
  93.         dc.b    'CPL ','CTL '
  94.         Dc.b    'LAL ','RAL ','LAM ','RAM '
  95.         dc.b    '    ','    ','    ','    '
  96.         dc.b    '    ','    '
  97.         Dc.b    '    ','    ','    ','    '
  98.         dc.b    '    ','    ','    ','    '
  99.         dc.b    '    ','    '
  100.  
  101.  even
  102.  
  103. FINISHEDLEVEL: dc.w 0
  104.  
  105.  
  106. START:
  107.  
  108.  move.b #'n',mors
  109.  
  110.   
  111.  
  112. ************************************88
  113. * TAKE OUT WHEN PLAYING MODULE AGAIN
  114. ********************************
  115. ProtChkBLev1:
  116.     PRSDF
  117.     PRSDE
  118. ************************************
  119.  
  120. ; move.l #PROTCALLENC,a0
  121. ; move.l #(ENDPROT-PROTCALLENC)/4-1,d1
  122. ; move.l #$75055345,d0
  123. ;codeitup:
  124. ; sub.l d0,(a0)+
  125. ; ror.l #1,d0
  126. ; dbra d1,codeitup
  127. ; rts
  128.  
  129. ProtChkCLev1:
  130.  PRSDA
  131.  
  132.  move.w #$7201,titleplanes
  133.  
  134.  move.l 4.w,a6
  135.  move.l #doslibname,a1
  136.  moveq #0,d0
  137.  jsr -552(a6)
  138.  move.l d0,doslib
  139.  PRSDS
  140.  jsr stuff
  141.  
  142.  jsr _InitLowLevel
  143.  
  144.  
  145.  jsr CLEARTITLEPAL
  146.  
  147. ProtChkDLev1:
  148.  PRSDT
  149.  
  150.  move.w #$20,$dff1dc
  151.  move.l #titlecop,$dff080
  152.  PRSDV
  153.  move.w #$87c0,$dff000+dmacon
  154.  move.w #$8020,$dff000+dmacon
  155. ProtChkMLev1:
  156.  move.w $dff006,d0
  157.  lea RVAL2-100(pc),a0
  158.  add.w d0,100(a0)
  159.  
  160.  bsr GETTITLEMEM
  161. ProtChkELev1:
  162.  PRSDU
  163.  bsr CLROPTSCRN
  164.  
  165.  bsr SETUPTITLESCRN
  166.  
  167. ; jsr _InitPlayer
  168.  
  169. ; move.l #INTROTUNENAME,a0
  170. ; jsr _LoadModule
  171. ; move.l d0,INTROTUNEADDR
  172.  PRSDY
  173. ; move.l d0,a0
  174. ; jsr _InitModule
  175.  
  176. ; move.l INTROTUNEADDR,a0
  177. ; jsr _PlayModule
  178. ProtChkFLev1:
  179.  PRSDa
  180.  bsr LOADTITLESCRN
  181.  
  182.  FLASHER $0f0,$fff
  183.  
  184.  move.w #0,FADEVAL
  185.  move.w #63,FADEAMOUNT
  186.  bsr FADEUPTITLE
  187.  PRSDB
  188.  jsr LOADWALLS
  189.  jsr LOADFLOOR
  190.  jsr LOADOBS
  191.  PRSDZ
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  move.w #31,FADEAMOUNT
  198.  PRSDC
  199.  bsr FADEDOWNTITLE 
  200.  
  201.  IFEQ CD32VER 
  202.  bsr ASKFORDISK
  203.  ENDC
  204.  IFNE CD32VER
  205.  PRSDD
  206.  ENDC
  207.  
  208.  jsr LOAD_SFX
  209. ; jsr _StopPlayer
  210.  PRSDW
  211.  PRSDX
  212. ; jsr _RemPlayer
  213.  
  214.  
  215.  IFNE CD32VER
  216.  move.l doslib,a6
  217.  move.l #115,d1
  218.  jsr -198(a6)
  219.  ENDC
  220.  
  221. ; move.l #newblag,$80
  222. ; trap #0
  223. ; bra JUMPPASTIT
  224. ; rts
  225. ;
  226. ;newblag:
  227.  
  228.  
  229. ProtChkGLev1:
  230. ; bsr PROTSETUP
  231.  bsr DEFAULTGAME
  232.  
  233. ; move.l INTROTUNEADDR,a0
  234. ; jsr _UnLoadModule
  235.  
  236. ; IFEQ CD32VER
  237. ; jsr KInt_Init
  238. ; ENDC
  239. ProtChkHLev1:
  240. ; rte
  241. ;
  242. ;JUMPPASTIT:
  243. ; 
  244.  
  245. BACKTOMENU:
  246.  
  247.  jsr CLEARKEYBOARD
  248.  
  249.  cmp.b #'s',mors
  250.  beq.s BACKTOSLAVE
  251.  cmp.b #'m',mors
  252.  beq.s BACKTOMASTER
  253.  bsr READMAINMENU
  254.  bra DONEMENU
  255. BACKTOMASTER:
  256.  bsr MASTERMENU
  257.  bra DONEMENU
  258. BACKTOSLAVE:
  259.  bsr SLAVEMENU
  260. DONEMENU:
  261.  
  262.  
  263.  bsr WAITREL
  264.  
  265. ; IFEQ CD32VER
  266. ; move.l OLDKINT,$68.w
  267. ; ENDC
  268.  
  269.  bsr CLRSPRITES
  270.  
  271.  move.w #31,FADEAMOUNT
  272.  bsr FADEUPTITLE
  273.  move.w #63,FADEAMOUNT
  274.  bsr FADEDOWNTITLE
  275.  
  276.  move.w #$0201,titleplanes
  277.  
  278.     FILTER
  279.  
  280.  bsr RELEASETITLEMEM
  281.  
  282.   
  283.  jsr LOADBOTPIC
  284.  
  285.   
  286.  clr.b FINISHEDLEVEL
  287.  
  288.  move.w #0,PLR1s_angpos
  289.  move.w #0,PLR2s_angpos
  290.  move.w #0,PLR1_angpos
  291.  move.w #0,PLR2_angpos
  292.  move.b #0,PLR1_GunSelected
  293.  move.b #0,PLR2_GunSelected
  294.  
  295. **************************8
  296.  clr.b NASTY
  297. *************************** 
  298.  
  299.  
  300.     jsr PLAYTHEGAME
  301.  
  302.  bsr FREEBOTMEM 
  303.  
  304. ; bra QUITTT
  305.  
  306.  tst.b FINISHEDLEVEL
  307.  beq dontusestats
  308.  bsr CALCPASSWORD
  309. dontusestats:
  310.  bsr PASSLINETOGAME
  311.  bsr GETSTATS
  312.  
  313.  bsr GETTITLEMEM
  314.  bsr CLROPTSCRN
  315.  bsr SETUPTITLESCRN
  316.  
  317.  bsr LOADTITLESCRN2
  318.  move.w #$7201,titleplanes
  319.  
  320.  move.w #$20,$dff1dc
  321.  move.l #titlecop,$dff080
  322.  move.w #$87c0,$dff000+dmacon
  323.  move.w #$8020,$dff000+dmacon 
  324.  
  325.  move.w #0,FADEVAL
  326.  move.w #63,FADEAMOUNT
  327.  bsr FADEUPTITLE
  328.  
  329.  move.w #31,FADEAMOUNT
  330.  bsr FADEDOWNTITLE 
  331.  
  332. ; IFEQ CD32VER
  333. ; jsr KInt_Init
  334. ; ENDC
  335.  
  336.  bra BACKTOMENU
  337.  
  338. QUITTT:
  339.  
  340.  move.l LEVELDATA,d1
  341.  move.l d1,a1
  342.  move.l #120000,d0
  343.  move.l 4.w,a6
  344.  jsr -210(a6)
  345.  
  346.  move.l TEXTSCRN,d1
  347.  move.l d1,a1
  348.  move.l #10240*2,d0
  349.  move.l 4.w,a6
  350.  jsr -210(a6)
  351.  
  352.  jsr RELEASEWALLMEM
  353.  jsr RELEASESAMPMEM
  354.  jsr RELEASEFLOORMEM
  355.  jsr RELEASEOBJMEM
  356.   
  357.  rte
  358.  
  359. SSTACK: dc.l 0
  360.  
  361. ; KEY OPTIONS:
  362. CONTROLBUFFER:
  363. turn_left_key:
  364.  dc.b $4f
  365. turn_right_key:
  366.  dc.b $4e
  367. forward_key:
  368.  dc.b $4c
  369. backward_key:
  370.  dc.b $4d
  371. fire_key:
  372.  dc.b $65
  373. operate_key:
  374.  dc.b $40
  375. run_key:
  376.  dc.b $61
  377. force_sidestep_key:
  378.  dc.b $67
  379. sidestep_left_key:
  380.  dc.b $39
  381. sidestep_right_key:
  382.  dc.b $3a
  383. duck_key:
  384.  dc.b $22
  385. look_behind_key:
  386.  dc.b $28
  387.  
  388. templeftkey: dc.b 0
  389. temprightkey: dc.b 0
  390. tempslkey: dc.b 0 
  391. tempsrkey: dc.b 0
  392.  
  393.  even 
  394.  
  395. GETSTATS:
  396. ; CHANGE PASSWORD INTO RAW DATA
  397.  
  398.  move.b PASSBUFFER,d0
  399.  and.w #$7f,d0
  400.  move.w d0,PLR1_energy
  401.  move.b PASSBUFFER+1,d0
  402.  btst #7,d0
  403.  sne PLR1_GunData+32+7
  404.  btst #6,d0
  405.  sne PLR1_GunData+32*2+7
  406.  btst #5,d0
  407.  sne PLR1_GunData+32*4+7
  408.  btst #4,d0
  409.  sne PLR1_GunData+32*7+7
  410.  and.w #%1111,d0
  411.  move.w d0,MAXLEVEL
  412.  move.b PASSBUFFER+2,d0
  413.  and.w #$7f,d0
  414.  lsl.w #3,d0
  415.  move.w d0,PLR1_GunData
  416.  move.b PASSBUFFER+3,d0
  417.  and.w #$7f,d0
  418.  lsl.w #3,d0
  419.  move.w d0,PLR1_GunData+32
  420.  move.b PASSBUFFER+4,d0
  421.  and.w #$7f,d0
  422.  lsl.w #3,d0
  423.  move.w d0,PLR1_GunData+32*2
  424.  move.b PASSBUFFER+5,d0
  425.  and.w #$7f,d0
  426.  lsl.w #3,d0
  427.  move.w d0,PLR1_GunData+32*4
  428.  move.b PASSBUFFER+6,d0
  429.  and.w #$7f,d0
  430.  lsl.w #3,d0
  431.  move.w d0,PLR1_GunData+32*7
  432.  rts
  433.  
  434.  
  435. SETPLAYERS:
  436.  
  437.  move.w PLOPT,d0
  438.  add.b #'a',d0
  439.  move.b d0,LEVA
  440.  move.b d0,LEVB
  441.  move.b d0,LEVC
  442.  
  443.  cmp.b #'s',mors
  444.  beq SLAVESETUP
  445.  cmp.b #'m',mors
  446.  beq MASTERSETUP
  447.  st NASTY
  448. onepla:
  449.  rts
  450.  
  451. NASTY: dc.w 0
  452.  
  453. MASTERSETUP:
  454.  bsr TWOPLAYER
  455.  clr.b NASTY
  456.  move.w PLOPT,d0
  457.  jsr SENDFIRST
  458.  rts
  459.  
  460. SLAVESETUP:
  461.  bsr TWOPLAYER
  462.  CLR.B NASTY
  463.  jsr RECFIRST
  464.  move.w d0,PLOPT
  465.  add.b #'a',d0
  466.  move.b d0,LEVA
  467.  move.b d0,LEVB
  468.  move.b d0,LEVC
  469.  rts
  470.      
  471. ********************************************************
  472.  
  473. ASKFORDISK:
  474.  lea RVAL1+300(pc),a0
  475.  lea RVAL2+900(pc),a1
  476.  PRSDD
  477.  move.w #3,OptScrn
  478.  bsr DRAWOPTSCRN
  479.  
  480. ProtChkNLev1:
  481. .wtrel:
  482.  btst #7,$bfe001
  483.  beq.s .wtrel
  484.  
  485. wtclick:
  486.  add.w #$235,-300(a0)
  487.  add.w #$4533,-900(a0)
  488.  btst #6,$bfe001
  489.  bne.s wtclick
  490.  
  491.  rts
  492.  
  493. CLRSPRITES: 
  494.  move.l #nullspr,d0
  495.  move.w d0,tsp0l
  496.  move.w d0,tsp1l
  497.  move.w d0,tsp2l
  498.  move.w d0,tsp3l
  499.  move.w d0,tsp4l
  500.  move.w d0,tsp5l
  501.  move.w d0,tsp6l
  502.  move.w d0,tsp7l
  503.  swap d0
  504.  move.w d0,tsp0h
  505.  move.w d0,tsp1h
  506.  move.w d0,tsp2h
  507.  move.w d0,tsp3h
  508.  move.w d0,tsp4h
  509.  move.w d0,tsp5h
  510.  move.w d0,tsp6h
  511.  move.w d0,tsp7h 
  512.  rts
  513.  
  514. ********************************************************
  515.  
  516. READMAINMENU:
  517.  
  518.  
  519.  move.b #'n',mors
  520.  
  521.  move.w MAXLEVEL,d0
  522.  
  523.  move.l #CURRENTLEVELLINE,a1
  524.  muls #40,d0
  525.  move.l #LEVEL_OPTS,a0
  526.  add.l d0,a0
  527.  bsr PUTINLINE
  528.  
  529.  
  530.  
  531. ; Stay here until 'play game' is selected.
  532.  
  533.  move.w #0,OptScrn
  534.  bsr DRAWOPTSCRN
  535.  move.w #1,OPTNUM
  536.  
  537.  bsr HIGHLIGHT
  538.  
  539.  
  540.  
  541.  bsr WAITREL
  542. .rdlop:
  543.  
  544.  bsr CHECKMENU
  545.  tst.w d0
  546.  blt.s .rdlop
  547.  
  548.  bne .noopt
  549.  
  550.  bra MASTERMENU
  551.  
  552. .noopt:
  553.  
  554.  cmp.w #1,d0
  555.  beq playgame
  556.  
  557.  cmp.w #2,d0
  558.  bne .nocontrol
  559.  
  560.  bsr CHANGECONTROLS
  561.  
  562.  move.w #0,OptScrn
  563.  bsr DRAWOPTSCRN
  564.  move.w #0,OPTNUM
  565.  
  566.  bsr HIGHLIGHT
  567.  
  568.  bsr WAITREL
  569.  bra .rdlop
  570.  
  571. .nocontrol:
  572.  
  573.  cmp.w #3,d0
  574.  bne .nocred
  575.  bsr SHOWCREDITS
  576.  move.w #0,OptScrn
  577.  bsr DRAWOPTSCRN
  578.  move.w #1,OPTNUM
  579.  
  580.  bsr HIGHLIGHT
  581.  
  582.  bsr WAITREL
  583.  bra .rdlop
  584.  
  585.  
  586. .nocred:
  587.  
  588.  cmp.w #4,d0
  589.  bne playgame
  590.  bsr WAITREL
  591.  
  592.  move.l #PASSWORDLINE+12,a0
  593.  moveq #15,d2
  594. .clrline:
  595.  move.b #32,(a0)+
  596.  dbra d2,.clrline 
  597.  move.w #0,OptScrn
  598.  bsr DRAWOPTSCRN
  599.  
  600.  IFEQ CD32VER
  601.  clr.b lastpressed
  602.  move.l #PASSWORDLINE+12,a0
  603.  move.w #0,d1
  604. .ENTERPASS:
  605.  tst.b lastpressed
  606.  beq .ENTERPASS
  607.  move.b lastpressed,d2
  608.  move.b #0,lastpressed
  609.  move.l #KVALTOASC,a1
  610.  
  611.  cmp.l #'<-- ',(a1,d2.w*4)
  612.  bne .nodel
  613.  
  614.  tst.b d1
  615.  beq .nodel
  616.  
  617.  subq #1,d1
  618.  move.b #32,-(a0)
  619.  movem.l d0-d7/a0-a6,-(a7)
  620.  bsr JUSTDRAWIT
  621.  movem.l (a7)+,d0-d7/a0-a6
  622.  bra .ENTERPASS
  623.  
  624. .nodel:
  625.  
  626.  cmp.l #'RTN ',(a1,d2.w*4)
  627.  beq .FORGETIT
  628.  cmp.l #'ESC ',(a1,d2.w*4)
  629.  beq .FORGETIT
  630.  move.b 1(a1,d2.w*4),d2
  631.  cmp.b #65,d2
  632.  blt .ENTERPASS
  633.  cmp.b #'Z',d2
  634.  bgt .ENTERPASS
  635.  move.b d2,(a0)+
  636.  move.w #0,OptScrn
  637.  movem.l d0-d7/a0-a6,-(a7)
  638.  bsr JUSTDRAWIT
  639.  movem.l (a7)+,d0-d7/a0-a6
  640.  add.w #1,d1
  641.  cmp.w #16,d1
  642.  blt .ENTERPASS
  643.  
  644.  ENDC
  645.  IFNE CD32VER
  646.  move.l #PASSWORDLINE+12,a0
  647.  move.w #15,d0
  648. .ENTERPASS:
  649.  bsr GETACHAR
  650.  dbra d0,.ENTERPASS
  651.  ENDC
  652.  
  653.  bsr PASSLINETOGAME
  654.  tst.w d0
  655.  bne .FORGETIT
  656.  
  657.  bsr GETSTATS
  658.  move.w MAXLEVEL,d0
  659.  move.l #CURRENTLEVELLINE,a1
  660.  muls #40,d0
  661.  move.l #LEVEL_OPTS,a0
  662.  add.l d0,a0
  663.  bsr PUTINLINE
  664.  
  665. .FORGETIT:
  666.  bsr WAITREL
  667.  bsr CALCPASSWORD
  668.  
  669.  move.w #0,OptScrn
  670.  bsr DRAWOPTSCRN
  671.  
  672.  move.w #1,OPTNUM
  673.  
  674.  bsr HIGHLIGHT
  675.  
  676.  bra .rdlop 
  677.  
  678. playgame:
  679.  move.w MAXLEVEL,PLOPT
  680.  rts
  681.  
  682. LEVELSELECTED:
  683.  dc.w 0
  684.  
  685.  IFNE CD32VER
  686. GETACHAR:
  687.  moveq #0,d7
  688.  move.b #'A',(a0)
  689.  movem.l d0-d7/a0-a6,-(a7)
  690.  jsr JUSTDRAWIT
  691.  movem.l (a7)+,d0-d7/a0-a6
  692.  
  693. .wtnum:
  694.  btst #1,$dff00c
  695.  sne d1
  696.  btst #1,$dff00d
  697.  sne d2
  698.  btst #0,$dff00c
  699.  sne d3
  700.  btst #0,$dff00d
  701.  sne d4
  702.  
  703.  eor.b d1,d3
  704.  eor.b d2,d4
  705.  
  706.  tst.b d1
  707.  beq.s .NODELETE
  708.  cmp.w #15,d0
  709.  beq.s .NODELETE
  710.  move.b #32,(a0)
  711.  subq #1,a0
  712.  addq #1,d0
  713.  move.b (a0),d7
  714.  sub.b #'A',d7
  715.  movem.l d0-d7/a0-a6,-(a7)
  716.  jsr JUSTDRAWIT
  717.  movem.l (a7)+,d0-d7/a0-a6
  718.  jsr WAITFORNOPRESS
  719.  bra .wtnum
  720. .NODELETE
  721.  
  722.  tst.b d4
  723.  bne.s .PREVNUM
  724.  tst.b d3
  725.  bne.s .NEXTNUM
  726.  btst #7,$bfe001
  727.  bne.s .wtnum
  728.  addq #1,a0
  729.  jsr WAITFORNOPRESS
  730.  rts
  731.  
  732. .PREVNUM:
  733.  subq #1,d7
  734.  bge.s .nonegg
  735.  moveq #15,d7
  736. .nonegg:
  737.  move.b d7,d1
  738.  add.b #'A',d1
  739.  move.b d1,(a0)
  740.  movem.l d0-d7/a0-a6,-(a7)
  741.  jsr JUSTDRAWIT
  742.  movem.l (a7)+,d0-d7/a0-a6
  743.  
  744.  jsr WAITFORNOPRESS
  745.  
  746.  bra .wtnum
  747.  
  748. .NEXTNUM:
  749.  addq #1,d7
  750.  cmp.w #15,d7
  751.  ble.s .nobigg
  752.  moveq #0,d7
  753. .nobigg:
  754.  move.b d7,d1
  755.  add.b #'A',d1
  756.  move.b d1,(a0)
  757.  movem.l d0-d7/a0-a6,-(a7)
  758.  jsr JUSTDRAWIT
  759.  movem.l (a7)+,d0-d7/a0-a6
  760.  jsr WAITFORNOPRESS
  761.  bra .wtnum
  762.  rts
  763.  ENDC
  764.  
  765.  
  766. MASTERMENU:
  767.  
  768.  move.b #'m',mors
  769.  
  770.  move.w #0,LEVELSELECTED
  771.  
  772.  move.w #0,d0 
  773.  move.l #CURRENTLEVELLINEM,a1
  774.  muls #40,d0
  775.  move.l #LEVEL_OPTS,a0
  776.  add.l d0,a0
  777.  bsr PUTINLINE
  778.  
  779. ; Stay here until 'play game' is selected.
  780.  
  781.  move.w #4,OptScrn
  782.  bsr DRAWOPTSCRN
  783.  move.w #1,OPTNUM
  784.  
  785.  bsr HIGHLIGHT
  786.  
  787.  bsr WAITREL
  788. .rdlop:
  789.  bsr CHECKMENU
  790.  tst.w d0
  791.  blt.s .rdlop
  792.  bsr WAITREL
  793.  
  794.  cmp.w #1,d0
  795.  bne.s .nonextlev
  796.  
  797.  move.w LEVELSELECTED,d0
  798.  add.w #1,d0
  799.  cmp.w MAXLEVEL,d0
  800.  blt .nowrap
  801.  moveq #0,d0
  802. .nowrap:
  803.  move.w d0,LEVELSELECTED
  804.  move.l #CURRENTLEVELLINEM,a1
  805.  muls #40,d0
  806.  move.l #LEVEL_OPTS,a0
  807.  add.l d0,a0
  808.  bsr PUTINLINE
  809.  bsr JUSTDRAWIT
  810.  bra .rdlop
  811.  
  812. .nonextlev:
  813.  cmp.w #2,d0
  814.  beq .playgame
  815.  
  816.  cmp.w #0,d0
  817.  bne .noopt
  818.  
  819.  bra SLAVEMENU
  820.  
  821. .noopt:
  822.  
  823.  cmp.w #3,d0
  824.  bne .nocontrol
  825.  
  826.  bsr CHANGECONTROLS
  827.  
  828.  move.w #4,OptScrn
  829.  bsr DRAWOPTSCRN
  830.  move.w #0,OPTNUM
  831.  
  832.  bsr HIGHLIGHT
  833.  
  834.  bsr WAITREL
  835.  bra .rdlop
  836.  
  837. .nocontrol:
  838.  
  839. .playgame
  840.  
  841.  move.w LEVELSELECTED,PLOPT
  842.  rts
  843.  
  844. SLAVEMENU:
  845.  
  846.  move.b #'s',mors
  847.  
  848. ; Stay here until 'play game' is selected.
  849.  
  850.  move.w #5,OptScrn
  851.  bsr DRAWOPTSCRN
  852.  move.w #1,OPTNUM
  853.  
  854.  bsr HIGHLIGHT
  855.  
  856.  bsr WAITREL
  857. .rdlop:
  858.  bsr CHECKMENU
  859.  tst.w d0
  860.  blt.s .rdlop
  861.  bsr WAITREL
  862.  
  863.  cmp.w #1,d0
  864.  beq .playgame
  865.  
  866.  cmp.w #0,d0
  867.  bne .noopt
  868.  
  869.  bra READMAINMENU
  870.  
  871. .noopt:
  872.  
  873.  cmp.w #2,d0
  874.  bne .nocontrol
  875.  
  876.  bsr CHANGECONTROLS
  877.  
  878.  move.w #0,OptScrn
  879.  bsr DRAWOPTSCRN
  880.  move.w #0,OPTNUM
  881.  
  882.  bsr HIGHLIGHT
  883.  
  884.  bsr WAITREL
  885.  bra .rdlop
  886.  
  887. .nocontrol:
  888. .playgame:
  889.  
  890.  rts
  891.  
  892. TWOPLAYER:
  893.  move.w #0,OldEnergy
  894.  move.w #127,Energy
  895.  jsr EnergyBar
  896.  
  897.  move.w #63,OldAmmo
  898.  move.w #0,Ammo
  899.  jsr AmmoBar
  900.  move.w #0,OldAmmo
  901.  
  902.  move.w #127,PLR1_energy
  903.  move.w #127,PLR2_energy 
  904.  move.w #160,PLR1_GunData    ; 10 shots pistol
  905.  st PLR1_GunData+7
  906.  
  907.  st.b PLR1_GunData+32+7
  908.  move.w #80*4,PLR1_GunData+32
  909.  
  910.  st.b PLR1_GunData+64+7
  911.  move.w #80*4,PLR1_GunData+64
  912.  
  913.  st.b PLR1_GunData+32*3+7
  914.  move.w #80*4,PLR1_GunData+32*3
  915.  
  916.  st.b PLR1_GunData+32*4+7
  917.  move.w #80*4,PLR1_GunData+32*4
  918.  
  919.  st.b PLR1_GunData+32*7+7
  920.  move.w #80*4,PLR1_GunData+32*7
  921.  
  922.  move.b #0,PLR1_GunSelected
  923.  
  924.  move.w #160,PLR2_GunData    ; 10 shots pistol
  925.  st PLR2_GunData+7
  926.  st.b PLR2_GunData+32+7
  927.  move.w #80*4,PLR2_GunData+32
  928.  
  929.  st.b PLR2_GunData+64+7
  930.  move.w #80*4,PLR2_GunData+64
  931.  
  932.  st.b PLR2_GunData+32*3+7
  933.  move.w #80*4,PLR2_GunData+32*3
  934.  
  935.  st.b PLR2_GunData+32*4+7
  936.  move.w #80*4,PLR2_GunData+32*4
  937.  
  938.  st.b PLR2_GunData+32*7+7
  939.  move.w #80*4,PLR2_GunData+32*7
  940.  move.b #0,PLR2_GunSelected
  941.  rts
  942.  
  943. newdum:
  944.  rts
  945.  
  946. DEFAULTGAME:
  947.  move.w #0,MAXLEVEL
  948.  move.w #5,CHEATNUM
  949.  move.l #CHEATFRAME-200000,CHEATPTR
  950.  
  951.  move.w #0,OldEnergy
  952.  move.w #127,Energy
  953.  jsr EnergyBar
  954.  
  955.  move.w #63,OldAmmo
  956.  move.w #0,Ammo
  957.  jsr AmmoBar
  958.  move.w #0,OldAmmo
  959.  
  960.  move.w #127,PLR1_energy
  961.  move.w #127,PLR2_energy 
  962.  move.w #160,PLR1_GunData    ; 10 shots pistol
  963.  st PLR1_GunData+7
  964.  clr.b PLR1_GunData+32+7
  965.  clr.w PLR1_GunData+32
  966.  clr.b PLR1_GunData+64+7
  967.  clr.w PLR1_GunData+64
  968.  clr.b PLR1_GunData+32*3+7
  969.  clr.w PLR1_GunData+32*3
  970.  clr.b PLR1_GunData+32*4+7
  971.  clr.w PLR1_GunData+32*4
  972.  clr.b PLR1_GunData+32*7+7
  973.  clr.w PLR1_GunData+32*7
  974.  move.b #0,PLR1_GunSelected
  975.  
  976. ProtChkILev1:
  977.  move.l #RealTable-2000,a3
  978.  move.l #PROTCALC-5000,a1
  979.  move.l #ASKFORPROT-10000,a2
  980.  move.l #PROTCALLENC-800,a4
  981.  adda.w #800,a4
  982.  jsr (a4)
  983.  
  984. ************************************************
  985. * TEMPORARY MEASURE: REMOVE BEFORE RELEASE *****
  986. ************************************************
  987.  
  988. ProtChkLLev1:
  989.  tst.w protA
  990.  bne.s .noreset
  991.  move.l #0,a7
  992. .noreset:
  993.  
  994. ************************************************
  995.  
  996.  move.w #160,PLR2_GunData    ; 10 shots pistol
  997.  st PLR2_GunData+7
  998.  clr.b PLR2_GunData+32+7
  999.  clr.w PLR2_GunData+32
  1000.  clr.b PLR2_GunData+64+7
  1001.  clr.w PLR2_GunData+64
  1002.  clr.b PLR2_GunData+32*3+7
  1003.  clr.w PLR2_GunData+32*3
  1004.  clr.b PLR2_GunData+32*4+7
  1005.  clr.w PLR2_GunData+32*4
  1006.  clr.b PLR2_GunData+32*7+7
  1007.  clr.w PLR2_GunData+32*7
  1008.  move.b #0,PLR2_GunSelected
  1009.  
  1010.  bsr CALCPASSWORD
  1011.  
  1012.  rts
  1013.  
  1014. CHKPROT: dc.w 0
  1015.  
  1016. GETPARITY:
  1017.  move.w #6,d3
  1018. .calcparity:
  1019.  btst d3,d0
  1020.  beq.s .nochange
  1021.  bchg #7,d0
  1022. .nochange:
  1023.  dbra d3,.calcparity
  1024.  rts
  1025.  
  1026. CHECKPARITY:
  1027.  move.w #6,d3
  1028.  move.b #$0,d2
  1029. .calcparity:
  1030.  btst d3,d0
  1031.  beq.s .nochange
  1032.  bchg #7,d2
  1033. .nochange:
  1034.  dbra d3,.calcparity
  1035.  move.b d0,d1
  1036.  and.b #$80,d1
  1037.  eor.b d1,d2
  1038.  sne.s d5
  1039.  rts
  1040.  
  1041. CALCPASSWORD:
  1042.  move.b PLR1_energy+1,d0
  1043.  bsr GETPARITY
  1044.  move.b d0,PASSBUFFER
  1045.  moveq #0,d0
  1046.  tst.b PLR1_GunData+32+7
  1047.  sne d0
  1048.  lsl.w #1,d0
  1049.  tst.b PLR1_GunData+64+7
  1050.  sne d0
  1051.  lsl.w #1,d0
  1052.  tst.b PLR1_GunData+32*4+7
  1053.  sne d0
  1054.  lsl.w #1,d0
  1055.  tst.b PLR1_GunData+32*7+7
  1056.  sne d0
  1057.  lsr.w #3,d0
  1058.  and.b #%11110000,d0
  1059.  or.b MAXLEVEL+1,d0
  1060.  move.b d0,PASSBUFFER+1
  1061.  eor.b #%10110101,d0
  1062.  neg.b d0
  1063.  add.b #50,d0
  1064.  move.b d0,PASSBUFFER+7
  1065.  
  1066.  move.w PLR1_GunData,d0
  1067.  lsr.w #3,d0
  1068.  bsr GETPARITY
  1069.  move.b d0,PASSBUFFER+2
  1070.  move.w PLR1_GunData+32,d0
  1071.  lsr.w #3,d0
  1072.  bsr GETPARITY
  1073.  move.b d0,PASSBUFFER+3
  1074.  move.w PLR1_GunData+32*2,d0
  1075.  lsr.w #3,d0
  1076.  bsr GETPARITY
  1077.  move.b d0,PASSBUFFER+4
  1078.  move.w PLR1_GunData+32*4,d0
  1079.  lsr.w #3,d0
  1080.  bsr GETPARITY
  1081.  move.b d0,PASSBUFFER+5
  1082.  move.w PLR1_GunData+32*7,d0
  1083.  lsr.w #3,d0
  1084.  bsr GETPARITY
  1085.  move.b d0,PASSBUFFER+6
  1086.  
  1087.  move.w #3,d0
  1088.  move.l #PASSBUFFER,a0
  1089.  move.l #PASSBUFFER+8,a1
  1090.  move.l #PASS,a2
  1091.  moveq #0,d4
  1092. mixemup:
  1093.  move.b (a0)+,d1
  1094.  move.b -(a1),d2
  1095.  not.b d2
  1096.  moveq #0,d3
  1097.  lsr.b #1,d1
  1098.  addx.w d3,d3
  1099.  lsr.b #1,d2
  1100.  addx.w d3,d3
  1101.  lsr.b #1,d1
  1102.  addx.w d3,d3
  1103.  lsr.b #1,d2
  1104.  addx.w d3,d3
  1105.  lsr.b #1,d1
  1106.  addx.w d3,d3
  1107.  lsr.b #1,d2
  1108.  addx.w d3,d3
  1109.  lsr.b #1,d1
  1110.  addx.w d3,d3
  1111.  lsr.b #1,d2
  1112.  addx.w d3,d3
  1113.  lsr.b #1,d1
  1114.  addx.w d3,d3
  1115.  lsr.b #1,d2
  1116.  addx.w d3,d3
  1117.  lsr.b #1,d1
  1118.  addx.w d3,d3
  1119.  lsr.b #1,d2
  1120.  addx.w d3,d3
  1121.  lsr.b #1,d1
  1122.  addx.w d3,d3
  1123.  lsr.b #1,d2
  1124.  addx.w d3,d3
  1125.  lsr.b #1,d1
  1126.  addx.w d3,d3
  1127.  lsr.b #1,d2
  1128.  addx.w d3,d3
  1129.  move.w d3,(a2)+
  1130.  
  1131.  dbra d0,mixemup
  1132.  
  1133.  move.l #PASSWORDLINE+12,a0
  1134.  move.l #PASS,a1
  1135.  move.w #7,d0
  1136. putinpassline:
  1137.  move.b (a1),d1
  1138.  and.b #%1111,d1
  1139.  add.b #65,d1
  1140.  move.b d1,(a0)+
  1141.  move.b (a1)+,d1
  1142.  lsr.b #4,d1
  1143.  and.b #%1111,d1
  1144.  add.b #65,d1
  1145.  move.b d1,(a0)+
  1146.  dbra d0,putinpassline
  1147.  rts
  1148.  
  1149. PASSLINETOGAME:
  1150.  move.l #PASSWORDLINE+12,a0
  1151.  move.l #PASS,a1
  1152.  move.w #7,d0
  1153. getbuff:
  1154.  move.b (a0)+,d1
  1155.  move.b (a0)+,d2
  1156.  sub.b #65,d1
  1157.  sub.b #65,d2
  1158.  and.b #%1111,d1
  1159.  and.b #%1111,d2
  1160.  lsl.b #4,d2
  1161.  or.b d2,d1
  1162.  move.b d1,(a1)+
  1163.  dbra d0,getbuff
  1164.  
  1165.  move.l #PASS,a0
  1166.  move.l #PASSBUFFER,a1
  1167.  move.l #PASSBUFFER+8,a2
  1168.  move.w #3,d0
  1169.  moveq #0,d4
  1170. unmix:
  1171.  move.w (a0)+,d1
  1172.  moveq #0,d2
  1173.  moveq #0,d3
  1174.  lsr.w #1,d1
  1175.  addx.w d3,d3
  1176.  lsr.w #1,d1
  1177.  addx.w d2,d2
  1178.  lsr.w #1,d1
  1179.  addx.w d3,d3
  1180.  lsr.w #1,d1
  1181.  addx.w d2,d2
  1182.  lsr.w #1,d1
  1183.  addx.w d3,d3
  1184.  lsr.w #1,d1
  1185.  addx.w d2,d2
  1186.  lsr.w #1,d1
  1187.  addx.w d3,d3
  1188.  lsr.w #1,d1
  1189.  addx.w d2,d2
  1190.  lsr.w #1,d1
  1191.  addx.w d3,d3
  1192.  lsr.w #1,d1
  1193.  addx.w d2,d2
  1194.  lsr.w #1,d1
  1195.  addx.w d3,d3
  1196.  lsr.w #1,d1
  1197.  addx.w d2,d2
  1198.  lsr.w #1,d1
  1199.  addx.w d3,d3
  1200.  lsr.w #1,d1
  1201.  addx.w d2,d2
  1202.  lsr.w #1,d1
  1203.  addx.w d3,d3
  1204.  lsr.w #1,d1
  1205.  addx.w d2,d2
  1206.  not.b d3
  1207.  move.b d3,-(a2)
  1208.  move.b d2,(a1)+
  1209.  dbra d0,unmix
  1210.  
  1211.  move.b PASSBUFFER,d0
  1212.  bsr CHECKPARITY
  1213.  tst.b d5
  1214.  bne illega
  1215.  move.b PASSBUFFER+2,d0
  1216.  bsr CHECKPARITY
  1217.  tst.b d5
  1218.  bne illega
  1219.  move.b PASSBUFFER+3,d0
  1220.  bsr CHECKPARITY
  1221.  tst.b d5
  1222.  bne illega
  1223.  move.b PASSBUFFER+4,d0
  1224.  bsr CHECKPARITY
  1225.  tst.b d5
  1226.  bne illega
  1227.  move.b PASSBUFFER+5,d0
  1228.  bsr CHECKPARITY
  1229.  tst.b d5
  1230.  bne illega
  1231.  move.b PASSBUFFER+6,d0
  1232.  bsr CHECKPARITY
  1233.  tst.b d5
  1234.  bne illega
  1235.  
  1236.  move.b PASSBUFFER+1,d0
  1237.  eor.b #%10110101,d0
  1238.  neg.b d0
  1239.  add.b #50,d0
  1240.  cmp.b PASSBUFFER+7,d0
  1241.  bne illega
  1242.  
  1243.  move.w #0,d0
  1244.  rts
  1245.  
  1246. illega:
  1247.  
  1248.  move.w #-1,d0
  1249.  
  1250.  rts
  1251.  
  1252. PASSBUFFER:
  1253.  ds.b 8
  1254.  
  1255. CHECKBUFFER: ds.b 8
  1256.  
  1257. PASS:
  1258.  ds.b 16
  1259.  
  1260. **************************************************
  1261.  
  1262. CHANGECONTROLS:
  1263.  
  1264.  move.w #6,OptScrn
  1265.  bsr DRAWOPTSCRN
  1266.  move.w #0,OPTNUM
  1267.  bsr HIGHLIGHT
  1268.  bsr WAITREL
  1269.  
  1270. .rdlop:
  1271.  bsr CHECKMENU
  1272.  tst.w d0
  1273.  blt.s .rdlop
  1274.  
  1275.  cmp.w #12,d0
  1276.  beq .backtomain
  1277.  
  1278.  move.l #KEY_LINES,a0
  1279.  move.w d0,d1
  1280.  muls #40,d1
  1281.  add.l d1,a0
  1282.  add.w #32,a0
  1283.  move.l #$20202020,(a0)
  1284.  movem.l d0/a0,-(a7)
  1285.  bsr JUSTDRAWIT
  1286.  movem.l (a7)+,d0/a0 
  1287.  
  1288.  clr.b lastpressed
  1289.  
  1290. .wtkey
  1291.  tst.b lastpressed
  1292.  beq .wtkey
  1293.  
  1294.  move.l #CONTROLBUFFER,a1
  1295.  moveq #0,d1
  1296.  move.b lastpressed,d1
  1297.  move.b d1,(a1,d0.w)
  1298.  move.l #KVALTOASC,a1
  1299.  move.l (a1,d1.w*4),(a0)
  1300.  bsr JUSTDRAWIT
  1301.  bsr WAITREL
  1302.  bra .rdlop
  1303.  
  1304. .backtomain:
  1305.  rts
  1306.  
  1307. **************************************************
  1308.  
  1309.  
  1310. MAXLEVEL: dc.w 0
  1311.  
  1312. SHOWCREDITS:
  1313.  move.w #2,OptScrn
  1314.  bsr DRAWOPTSCRN
  1315.  move.w #0,OPTNUM
  1316.  bsr HIGHLIGHT
  1317.  
  1318.  bsr WAITREL
  1319.  
  1320. .rdlop:
  1321.  bsr CHECKMENU
  1322.  tst.w d0
  1323.  blt.s .rdlop
  1324.  
  1325.  bra READMAINMENU
  1326.  
  1327. HELDDOWN:
  1328.  dc.w 0
  1329.  
  1330. WAITREL:
  1331.  
  1332.  movem.l d0/d1/d2/d3,-(a7)
  1333.  
  1334.  move.l #KeyMap,a5
  1335. WAITREL2:
  1336.  btst #7,$bfe001
  1337.  beq.s WAITREL2
  1338.  
  1339.  IFEQ CD32VER
  1340.  tst.b $40(a5)
  1341.  bne.s WAITREL2
  1342.  tst.b $44(a5)
  1343.  bne.s WAITREL2
  1344.  tst.b $4c(a5)
  1345.  bne.s WAITREL2
  1346.  tst.b $4d(a5)
  1347.  bne.s WAITREL2
  1348.  ENDC
  1349.  
  1350.  btst #1,$dff00c
  1351.  sne d0
  1352.  btst #1,$dff00d
  1353.  sne d1
  1354.  btst #0,$dff00c
  1355.  sne d2
  1356.  btst #0,$dff00d
  1357.  sne d3
  1358.  
  1359.  eor.b d0,d2
  1360.  eor.b d1,d3
  1361.  tst.b d2
  1362.  bne.s WAITREL2
  1363.  tst.b d3
  1364.  bne.s WAITREL2
  1365.  
  1366.  
  1367.  movem.l (a7)+,d0/d1/d2/d3
  1368.  rts
  1369.  
  1370. PUTINLINE:
  1371.  moveq #39,d0
  1372. pill
  1373.  move.b (a0)+,(a1)+
  1374.  dbra d0,pill
  1375.  rts
  1376.  
  1377. CHECKMENU:
  1378.  btst #1,$dff00c
  1379.  sne d0
  1380.  btst #1,$dff00d
  1381.  sne d1
  1382.  btst #0,$dff00c
  1383.  sne d2
  1384.  btst #0,$dff00d
  1385.  sne d3
  1386.  
  1387.  eor.b d0,d2
  1388.  eor.b d1,d3
  1389.  
  1390.  move.l #KeyMap,a5
  1391.  move.b $4c(a5),d0
  1392.  move.b $4d(a5),d1
  1393.  or.b d1,d3
  1394.  or.b d0,d2
  1395.  
  1396.  move.w OptScrn,d0
  1397.  move.l #MENUDATA,a0
  1398.  move.l 4(a0,d0.w*8),a0    ; opt data
  1399.  
  1400.  move.w OPTNUM,d0
  1401.  
  1402.  tst.b d2
  1403.  beq.s NOPREV
  1404.  
  1405.  
  1406.  sub.w #1,d0
  1407.  bge.s NOPREV
  1408.  
  1409.  move.w #0,d0 
  1410.  
  1411. NOPREV:
  1412.  
  1413.  tst.b d3
  1414.  beq.s NONEXT
  1415.  
  1416.  bsr WAITREL
  1417.  
  1418.  add.w #1,d0
  1419.  tst.w (a0,d0.w*8)
  1420.  bge.s NONEXT
  1421.  
  1422.  subq #1,d0
  1423.  
  1424. NONEXT:
  1425.  
  1426.  cmp.w OPTNUM,d0
  1427.  beq.s .nochange
  1428.  
  1429.  bsr HIGHLIGHT
  1430.  move.w d0,OPTNUM
  1431.  bsr HIGHLIGHT
  1432.  bsr WAITREL
  1433.  
  1434. .nochange:
  1435.  
  1436.  move.w #-1,d0
  1437.  
  1438.  btst #7,$bfe001
  1439.  beq.s select
  1440.  move.b $40(a5),d1
  1441.  or.b $44(a5),d1
  1442.  tst.b d1
  1443.  beq.s noselect
  1444.  
  1445. select:
  1446.  bsr WAITREL
  1447.  move.w OPTNUM,d0
  1448. noselect:
  1449.  
  1450.  rts
  1451.  
  1452. HIGHLIGHT:
  1453.  
  1454.  SAVEREGS
  1455.  
  1456.  move.w OptScrn,d0
  1457.  move.l #MENUDATA,a0
  1458.  move.l 4(a0,d0.w*8),a0
  1459.  move.w OPTNUM,d0
  1460.  lea (a0,d0.w*8),a0
  1461.  move.w (a0)+,d0    ;left
  1462.  move.w (a0)+,d1    ;top
  1463.  move.w (a0)+,d2    ;width
  1464.  
  1465.  muls #16*8,d1
  1466.  move.l OPTSPRADDR,a1
  1467.  add.w d1,a1
  1468.  add.w #8+16,a1
  1469.  move.l #SCRTOSPR2,a5
  1470.  adda.w d0,a5
  1471.  adda.w d0,a5
  1472.  
  1473. NOTLOP:
  1474.  
  1475.  move.w (a5)+,d3
  1476.  lea (a1,d3.w),a2
  1477.  not.b (a2)
  1478.  not.b 16(a2)
  1479.  not.b 32(a2)
  1480.  not.b 48(a2)
  1481.  not.b 64(a2)
  1482.  not.b 80(a2)
  1483.  not.b 96(a2)
  1484.  not.b 112(a2)
  1485.  not.b 128(a2)
  1486.  subq #1,d2
  1487.  bgt.s NOTLOP
  1488.  
  1489.  GETREGS
  1490.  rts
  1491.  
  1492. SCRTOSPR2:
  1493. val SET 0
  1494.  REPT 6
  1495.  dc.w val+0
  1496.  dc.w val+1
  1497.  dc.w val+2
  1498.  dc.w val+3
  1499.  dc.w val+4
  1500.  dc.w val+5
  1501.  dc.w val+6
  1502.  dc.w val+7
  1503. val SET val+258*16
  1504.  ENDR
  1505.  
  1506. CLROPTSCRN:
  1507.  
  1508.  move.l #$2cdfea,d0
  1509.  move.w (a4,d0.l),d0
  1510.  add.w d0,RVAL2
  1511.  
  1512.  move.l OPTSPRADDR,a0
  1513.  lea 16(a0),a1
  1514.  lea 16+(258*16)(a0),a2
  1515.  lea 16+(258*16*2)(a0),a3
  1516.  lea 16+(258*16*3)(a0),a4
  1517.  lea 258*16(a4),a0
  1518.  
  1519.  move.w #256,d0
  1520.  moveq #0,d1
  1521. CLRLOP:
  1522.  move.l d1,(a0)+
  1523.  move.l d1,(a0)+
  1524.  move.l d1,(a0)+
  1525.  move.l d1,(a0)+
  1526.  move.l d1,(a1)+
  1527.  move.l d1,(a1)+
  1528.  move.l d1,(a1)+
  1529.  move.l d1,(a1)+
  1530.  move.l d1,(a2)+
  1531.  move.l d1,(a2)+
  1532.  move.l d1,(a2)+
  1533.  move.l d1,(a2)+
  1534.  move.l d1,(a3)+
  1535.  move.l d1,(a3)+
  1536.  move.l d1,(a3)+
  1537.  move.l d1,(a3)+
  1538.  move.l d1,(a4)+
  1539.  move.l d1,(a4)+
  1540.  move.l d1,(a4)+
  1541.  move.l d1,(a4)+
  1542.  dbra d0,CLRLOP
  1543.  
  1544.  move.l OPTSPRADDR,a0
  1545.  move.w #44*256+64,(a0)
  1546.  move.w #44*256+2,8(a0)
  1547.  add.l #258*16,a0
  1548.  
  1549.  move.w #44*256+96,(a0)
  1550.  move.w #44*256+2,8(a0)
  1551.  add.l #258*16,a0
  1552.  
  1553.  move.w #44*256+128,(a0)
  1554.  move.w #44*256+2,8(a0)
  1555.  add.l #258*16,a0
  1556.  
  1557.  move.w #44*256+160,(a0)
  1558.  move.w #44*256+2,8(a0)
  1559.  add.l #258*16,a0
  1560.  
  1561.  move.w #44*256+192,(a0)
  1562.  move.w #44*256+2,8(a0)
  1563.  
  1564.  rts
  1565.  
  1566. DRAWOPTSCRN:
  1567.  
  1568.  bsr CLROPTSCRN
  1569.  
  1570. JUSTDRAWIT:
  1571.  
  1572.  move.l #font,a0
  1573.  move.l #MENUDATA,a1
  1574.  move.w OptScrn,d0
  1575.  move.l (a1,d0.w*8),a1
  1576.  
  1577.  move.l OPTSPRADDR,a3
  1578.  add.l #16,a3
  1579.  moveq #0,d2
  1580.  
  1581.  move.w #31,d0
  1582. linelop:
  1583.  move.w #39,d1
  1584.  move.l #SCRTOSPR,a4
  1585.  move.l a3,a2
  1586. charlop:
  1587.  move.b (a1)+,d2
  1588.  lea (a0,d2.w*8),a5
  1589.  move.b (a5)+,(a2)
  1590.  move.b (a5)+,16(a2)
  1591.  move.b (a5)+,32(a2)
  1592.  move.b (a5)+,48(a2)
  1593.  move.b (a5)+,64(a2)
  1594.  move.b (a5)+,80(a2)
  1595.  move.b (a5)+,96(a2)
  1596.  move.b (a5),112(a2)
  1597.  add.w (a4)+,a2
  1598.  dbra d1,charlop
  1599.  add.w #16*8,a3
  1600.  dbra d0,linelop
  1601.  
  1602.  rts
  1603.   
  1604. SCRTOSPR:
  1605.  dc.w 1,1,1,1,1,1,1,258*16-7
  1606.  dc.w 1,1,1,1,1,1,1,258*16-7
  1607.  dc.w 1,1,1,1,1,1,1,258*16-7
  1608.  dc.w 1,1,1,1,1,1,1,258*16-7
  1609.  dc.w 1,1,1,1,1,1,1,258*16-7
  1610.  dc.w 1,1,1,1,1,1,1,258*16-7
  1611.   
  1612. OPTNUM: dc.w 0
  1613. OptScrn: dc.w 0
  1614.  
  1615. MENUDATA:
  1616. ;0
  1617.  dc.l ONEPLAYERMENU_TXT
  1618.  dc.l ONEPLAYERMENU_OPTS
  1619. ;1
  1620.  dc.l INSTRUCTIONS_TXT
  1621.  dc.l INSTRUCTIONS_OPTS
  1622. ;2
  1623.  dc.l CREDITMENU_TXT
  1624.  dc.l CREDITMENU_OPTS
  1625. ;3
  1626.  dc.l ASKFORDISK_TXT
  1627.  dc.l ASKFORDISK_OPTS
  1628. ;4
  1629. ; dc.l ONEPLAYERMENU_TXT
  1630. ; dc.l ONEPLAYERMENU_OPTS
  1631.  dc.l MASTERPLAYERMENU_TXT
  1632.  dc.l MASTERPLAYERMENU_OPTS
  1633. ;5
  1634.  dc.l SLAVEPLAYERMENU_TXT
  1635.  dc.l SLAVEPLAYERMENU_OPTS
  1636. ;6
  1637.  dc.l CONTROL_TXT
  1638.  dc.l CONTROL_OPTS
  1639. ;7
  1640.  dc.l PROTMENU_TXT
  1641.  dc.l CONTROL_OPTS
  1642.  
  1643. ASKFORDISK_TXT:
  1644. ;      0123456789012345678901234567890123456789
  1645.  dc.b '                                        ' ;0
  1646.  dc.b '                                        ' ;1
  1647.  dc.b '                                        ' ;2
  1648.  dc.b '                                        ' ;3
  1649.  dc.b '                                        ' ;4
  1650.  dc.b '                                        ' ;5
  1651.  dc.b '                                        ' ;6
  1652.  dc.b '                                        ' ;7
  1653.  dc.b '                                        ' ;8
  1654.  dc.b '                                        ' ;9
  1655.  dc.b '                                        ' ;0
  1656.  dc.b '                                        ' ;1
  1657.  dc.b '                                        ' ;2
  1658.  dc.b '          INSERT LEVEL DISK             ' ;3
  1659.  dc.b '                                        ' ;4
  1660.  dc.b '          PRESS MOUSE BUTTON            ' ;5
  1661.  dc.b '          WHEN DISK ACTIVITY            ' ;6
  1662.  dc.b '               FINISHES                 ' ;7
  1663.  dc.b '                                        ' ;8
  1664.  dc.b '                                        ' ;9
  1665.  dc.b '                                        ' ;0
  1666.  dc.b '                                        ' ;1
  1667.  dc.b '                                        ' ;2
  1668.  dc.b '                                        ' ;3
  1669.  dc.b '                                        ' ;4
  1670.  dc.b '                                        ' ;5
  1671.  dc.b '                                        ' ;6
  1672.  dc.b '                                        ' ;7
  1673.  dc.b '                                        ' ;8
  1674.  dc.b '                                        ' ;9
  1675.  dc.b '                                        ' ;0
  1676.  dc.b '                                        ' ;1
  1677.  
  1678. ASKFORDISK_OPTS:
  1679.  dc.w -1
  1680.  
  1681.  
  1682. ONEPLAYERMENU_TXT:
  1683. ;      0123456789012345678901234567890123456789
  1684.  dc.b '                                        ' ;0
  1685.  dc.b '                                        ' ;1
  1686.  dc.b '                                        ' ;2
  1687.  dc.b '                                        ' ;3
  1688.  dc.b '                                        ' ;4
  1689.  dc.b '                                        ' ;5
  1690.  dc.b '                                        ' ;6
  1691.  dc.b '                                        ' ;7
  1692.  dc.b '                                        ' ;8
  1693.  dc.b '                                        ' ;9
  1694.  dc.b '                                        ' ;0
  1695. CURRENTLEVELLINE:
  1696.  dc.b '           LEVEL 1 : THE GATE           ' ;1 
  1697.  dc.b '                                        ' ;2
  1698.  dc.b '                1 PLAYER                ' ;3
  1699.  dc.b '                                        ' ;4
  1700.  dc.b '               PLAY  GAME               ' ;5
  1701.  dc.b '                                        ' ;6
  1702.  dc.b '            CONTROL  OPTIONS            ' ;7
  1703.  dc.b '                                        ' ;8
  1704.  dc.b '              GAME CREDITS              ' ;9
  1705.  dc.b '                                        ' ;0
  1706.  dc.b '                PASSWORD                ' ;1
  1707.  dc.b '                                        ' ;2
  1708. PASSWORDLINE:
  1709.  dc.b '                                        ' ;3
  1710.  dc.b '                                        ' ;4
  1711.  dc.b '                                        ' ;5
  1712.  dc.b '                                        ' ;6
  1713.  dc.b '                                        ' ;7
  1714.  dc.b '                                        ' ;8
  1715.  dc.b '                                        ' ;9
  1716.  dc.b '                                        ' ;0
  1717.  dc.b '                                        ' ;1
  1718.  
  1719. ONEPLAYERMENU_OPTS:
  1720.  dc.w 16,13,8,1
  1721.  dc.w 15,15,10,1
  1722.  dc.w 12,17,16,1
  1723.  dc.w 14,19,12,1
  1724.  dc.w 12,23,16,1
  1725.  dc.w -1
  1726.  
  1727.  
  1728. MASTERPLAYERMENU_TXT:
  1729. ;      0123456789012345678901234567890123456789
  1730.  dc.b '                                        ' ;0
  1731.  dc.b '                                        ' ;1
  1732.  dc.b '                                        ' ;2
  1733.  dc.b '                                        ' ;3
  1734.  dc.b '                                        ' ;4
  1735.  dc.b '                                        ' ;5
  1736.  dc.b '                                        ' ;6
  1737.  dc.b '                                        ' ;7
  1738.  dc.b '                                        ' ;8
  1739.  dc.b '                                        ' ;9
  1740.  dc.b '                                        ' ;0
  1741.  dc.b '                                        ' ;1
  1742.  dc.b '            2 PLAYER  MASTER            ' ;2
  1743.  dc.b '                                        ' ;3
  1744. CURRENTLEVELLINEM:
  1745.  dc.b '           LEVEL 1 : THE GATE           ' ;4 
  1746.  dc.b '                                        ' ;5
  1747.  dc.b '               PLAY  GAME               ' ;6
  1748.  dc.b '                                        ' ;7
  1749.  dc.b '            CONTROL  OPTIONS            ' ;8
  1750.  dc.b '                                        ' ;9
  1751.  dc.b '                                        ' ;0
  1752.  dc.b '                                        ' ;1
  1753.  dc.b '                                        ' ;2
  1754.  dc.b '                                        ' ;3
  1755.  dc.b '                                        ' ;4
  1756.  dc.b '                                        ' ;5
  1757.  dc.b '                                        ' ;6
  1758.  dc.b '                                        ' ;7
  1759.  dc.b '                                        ' ;8
  1760.  dc.b '                                        ' ;9
  1761.  dc.b '                                        ' ;0
  1762.  dc.b '                                        ' ;1
  1763.  
  1764. MASTERPLAYERMENU_OPTS:
  1765.  dc.w 12,12,16,1
  1766.  dc.w 6,14,28,1
  1767.  dc.w 15,16,10,1
  1768.  dc.w 12,18,16,1
  1769.  dc.w -1
  1770.  
  1771. SLAVEPLAYERMENU_TXT:
  1772. ;      0123456789012345678901234567890123456789
  1773.  dc.b '                                        ' ;0
  1774.  dc.b '                                        ' ;1
  1775.  dc.b '                                        ' ;2
  1776.  dc.b '                                        ' ;3
  1777.  dc.b '                                        ' ;4
  1778.  dc.b '                                        ' ;5
  1779.  dc.b '                                        ' ;6
  1780.  dc.b '                                        ' ;7
  1781.  dc.b '                                        ' ;8
  1782.  dc.b '                                        ' ;9
  1783.  dc.b '                                        ' ;9
  1784.  dc.b '                                        ' ;1
  1785.  dc.b '             2 PLAYER SLAVE             ' ;4
  1786.  dc.b '                                        ' ;3
  1787.  dc.b '               PLAY  GAME               ' ;2
  1788.  dc.b '                                        ' ;5
  1789.  dc.b '            CONTROL  OPTIONS            ' ;0
  1790.  dc.b '                                        ' ;1
  1791.  dc.b '                                        ' ;3
  1792.  dc.b '                                        ' ;7
  1793.  dc.b '                                        ' ;7
  1794.  dc.b '                                        ' ;3
  1795.  dc.b '                                        ' ;3
  1796.  dc.b '                                        ' ;3
  1797.  dc.b '                                        ' ;4
  1798.  dc.b '                                        ' ;5
  1799.  dc.b '                                        ' ;6
  1800.  dc.b '                                        ' ;7
  1801.  dc.b '                                        ' ;9
  1802.  dc.b '                                        ' ;9
  1803.  dc.b '                                        ' ;9
  1804.  dc.b '                                        ' ;9
  1805.  
  1806.  
  1807. PROTMENU_TXT:
  1808. ;      0123456789012345678901234567890123456789
  1809.  dc.b '                                        ' ;0
  1810.  dc.b '                                        ' ;1
  1811.  dc.b '                                        ' ;2
  1812.  dc.b '                                        ' ;3
  1813.  dc.b '                                        ' ;4
  1814.  dc.b '                                        ' ;5
  1815.  dc.b '                                        ' ;6
  1816.  dc.b '                                        ' ;7
  1817.  dc.b '                                        ' ;8
  1818.  dc.b '                                        ' ;9
  1819.  dc.b '                                        ' ;0
  1820.  dc.b '                                        ' ;1
  1821.  dc.b ' TYPE IN THREE DIGIT CODE FROM MANUAL : ' ;2
  1822.  dc.b '                                        ' ;3
  1823. PROTLINE:
  1824.  dc.b '        TABLE 00 ROW 00 COLUMN 00       ' ;4
  1825.  dc.b '                                        ' ;5
  1826.  dc.b '                                        ' ;6
  1827.  dc.b '                                        ' ;7
  1828.  dc.b '                                        ' ;8
  1829.  dc.b '                                        ' ;9
  1830.  dc.b '                                        ' ;0
  1831.  dc.b '                                        ' ;1
  1832.  dc.b '                                        ' ;2
  1833.  dc.b '                                        ' ;3
  1834.  dc.b '                                        ' ;4
  1835.  dc.b '                                        ' ;5
  1836.  dc.b '                                        ' ;6
  1837.  dc.b '                                        ' ;7
  1838.  dc.b '                                        ' ;9
  1839.  dc.b '                                        ' ;0
  1840.  dc.b '                                        ' ;1
  1841.  
  1842.  
  1843.  
  1844. SLAVEPLAYERMENU_OPTS:
  1845.  dc.w 12,12,16,1
  1846.  dc.w 15,14,10,1
  1847.  dc.w 12,16,16,1
  1848.  dc.w -1
  1849.  
  1850.  
  1851. PLAYER_OPTS:
  1852. ;      0123456789012345678901234567890123456789
  1853.  dc.b '                 1 PLAYER               '
  1854.  dc.b '             2  PLAYER MASTER           '
  1855.  dc.b '              2 PLAYER SLAVE            '
  1856.  
  1857. LEVEL_OPTS:
  1858. ;      0123456789012345678901234567890123456789
  1859.  dc.b '      LEVEL  1 :          THE GATE      '
  1860.  dc.b '      LEVEL  2 :       STORAGE BAY      '
  1861.  dc.b '      LEVEL  3 :     SEWER NETWORK      '
  1862.  dc.b '      LEVEL  4 :     THE COURTYARD      '
  1863.  dc.b '      LEVEL  5 :      SYSTEM PURGE      '
  1864.  dc.b '      LEVEL  6 :         THE MINES      '
  1865.  dc.b '      LEVEL  7 :       THE FURNACE      '
  1866.  dc.b '      LEVEL  8 :  TEST ARENA GAMMA      '
  1867.  dc.b '      LEVEL  9 :      SURFACE ZONE      '
  1868.  dc.b '      LEVEL 10 :     TRAINING AREA      '
  1869.  dc.b '      LEVEL 11 :       ADMIN BLOCK      '
  1870.  dc.b '      LEVEL 12 :           THE PIT      '
  1871.  dc.b '      LEVEL 13 :            STRATA      '
  1872.  dc.b '      LEVEL 14 :      REACTOR CORE      '
  1873.  dc.b '      LEVEL 15 :     COOLING TOWER      '
  1874.  dc.b '      LEVEL 16 :    COMMAND CENTRE      '
  1875.  
  1876. CONTROL_TXT:
  1877. ;      0123456789012345678901234567890123456789
  1878.  dc.b '                                        ' ;0
  1879.  dc.b '                                        ' ;1
  1880.  dc.b '                                        ' ;2
  1881.  dc.b '                                        ' ;3
  1882.  dc.b '            DEFINE  CONTROLS            ' ;4
  1883.  dc.b '                                        ' ;5
  1884. KEY_LINES:
  1885.  dc.b '     TURN LEFT                  LCK     ' ;6
  1886.  dc.b '     TURN RIGHT                 RCK     ' ;7
  1887.  dc.b '     FORWARDS                   UCK     ' ;8
  1888.  dc.b '     BACKWARDS                  DCK     ' ;9
  1889.  dc.b '     FIRE                       RAL     ' ;0
  1890.  dc.b '     OPERATE DOOR/LIFT/SWITCH   SPC     ' ;1
  1891.  dc.b '     RUN                        RSH     ' ;2
  1892.  dc.b '     FORCE SIDESTEP             RAM     ' ;3
  1893.  dc.b '     SIDESTEP LEFT               .      ' ;4
  1894.  dc.b '     SIDESTEP RIGHT              /      ' ;5
  1895.  dc.b '     DUCK                        D      ' ;6
  1896.  dc.b '     LOOK BEHIND                 L      ' ;7
  1897.  dc.b '                                        ' ;8
  1898.  dc.b '             OTHER CONTROLS             ' ;9
  1899.  dc.b '                                        ' ;0
  1900.  dc.b ' PULSE RIFLE      1  PAUSE            P ' ;1
  1901.  dc.b ' SHOTGUN          2  QUIT           ESC ' ;2
  1902.  dc.b ' PLASMA GUN       3  MOUSE CONTROL    M ' ;3
  1903.  dc.b ' GRENADE LAUNCHER 4  JOYSTICK CONTROL J ' ;4
  1904.  dc.b ' ROCKET LAUNCHER  5  KEYBOARD CONTROL K ' ;5
  1905.  dc.b '                                        ' ;6
  1906.  dc.b '               MAIN  MENU               ' ;7
  1907.  dc.b '                                        ' ;8
  1908.  dc.b '                                        ' ;9
  1909.  dc.b '                                        ' ;0
  1910.  dc.b '                                        ' ;1
  1911.  
  1912. CONTROL_OPTS:
  1913.  dc.w 5,6,30,1
  1914.  dc.w 5,7,30,1
  1915.  dc.w 5,8,30,1
  1916.  dc.w 5,9,30,1
  1917.  dc.w 5,10,30,1
  1918.  dc.w 5,11,30,1
  1919.  dc.w 5,12,30,1
  1920.  dc.w 5,13,30,1
  1921.  dc.w 5,14,30,1
  1922.  dc.w 5,15,30,1
  1923.  dc.w 5,16,30,1
  1924.  dc.w 5,17,30,1
  1925.  dc.w 15,27,10,1
  1926.  dc.w -1
  1927.  
  1928. PLOPT: dc.w 0
  1929.  
  1930. INSTRUCTIONS_TXT:
  1931. ;      0123456789012345678901234567890123456789
  1932.  dc.b 'Main controls:                          ' ;1
  1933.  dc.b '                                        ' ;2
  1934.  dc.b 'Curs Keys = Forward / Backward          ' ;3
  1935.  dc.b '            Turn left / right           ' ;4
  1936.  dc.b '          Right Alt = Fire              ' ;5
  1937.  dc.b '        Right Shift = Run               ' ;6
  1938.  dc.b '                  > = Slide Left        ' ;7
  1939.  dc.b '                  ? = Slide Right       ' ;8
  1940.  dc.b '              SPACE = Operate Door/Lift ' ;9
  1941.  dc.b '                  D = Duck              ' ;0
  1942.  dc.b '                  J = Joystick Control  ' ;1
  1943.  dc.b '                  K = Keyboard Control  ' ;2
  1944.  dc.b '                                        ' ;3
  1945.  dc.b '              1,2,3 = Select weapon     ' ;4
  1946.  dc.b '              ENTER = Toggle screen size' ;5
  1947.  dc.b '                ESC = Quit              ' ;6
  1948.  dc.b '                                        ' ;7
  1949.  dc.b '                                        ' ;8
  1950.  dc.b 'The one player game has no objective and' ;9
  1951.  dc.b 'the only way to finish is to die or quit' ;0
  1952.  dc.b '                                        ' ;1
  1953.  dc.b 'The two-player game is supposed to be a ' ;2
  1954.  dc.b 'fight to the death but will probably be ' ;3
  1955.  dc.b 'a fight-till-we-find-the-rocket-launcher' ;4
  1956.  dc.b 'then-blow-ourselves-up type game.       ' ;5
  1957.  dc.b '                                        ' ;6
  1958.  dc.b 'LOOK OUT FOR TELEPORTERS: They usually  ' ;7
  1959.  dc.b 'have glowing red walls and overhead     ' ;8
  1960.  dc.b 'lights. Useful for getting behind your  ' ;9
  1961.  dc.b ' opponent!                              ' ;0
  1962.  dc.b '  Just a taster of what is to come....  ' ;1
  1963.  dc.b '                                        ' ;0
  1964.  
  1965. INSTRUCTIONS_OPTS:
  1966.  dc.w 0,0,0,1
  1967.  dc.w -1
  1968.  
  1969. CREDITMENU_TXT:
  1970.  
  1971. ;      0123456789012345678901234567890123456789
  1972.  dc.b '    Programming, Game Code, Graphics    ' ;0
  1973.  dc.b '         Game Design and Manual         ' ;1
  1974.  dc.b '            Andrew Clitheroe            ' ;2
  1975.  dc.b '                                        ' ;3
  1976.  dc.b '             Alien Graphics             ' ;4
  1977.  dc.b '             Michael  Green             ' ;5
  1978.  dc.b '                                        ' ;6
  1979.  dc.b '           3D Object Designer           ' ;7
  1980.  dc.b '            Charles Blessing            ' ;8
  1981.  dc.b '                                        ' ;9
  1982.  dc.b '              Level Design              ' ;0
  1983.  dc.b 'Michael Green  Ben Chanter   Jackie Lang' ;1
  1984.  dc.b '     Kai Barrett Charles Blessing       ' ;2
  1985.  dc.b '                                        ' ;3
  1986.  dc.b '           Creative  Director           ' ;4
  1987.  dc.b '              Martyn Brown              ' ;5
  1988.  dc.b '                                        ' ;6
  1989.  dc.b '       Project Manager and Manual       ' ;7
  1990.  dc.b "            Martin O'Donnell            " ;8
  1991.  dc.b '                                        ' ;9
  1992.  dc.b '              Music + SFX               ' ;0
  1993.  dc.b '              Bjorn Lynne               ' ;1
  1994.  dc.b '                                        ' ;2
  1995.  dc.b '      Cover Illustration and Logo       ' ;3
  1996.  dc.b '             Kevin Jenkins              ' ;4
  1997.  dc.b '                                        ' ;5
  1998.  dc.b '      Packaging and Manual Design       ' ;6
  1999.  dc.b '               Paul Sharp               ' ;7
  2000.  dc.b '                                        ' ;8
  2001.  dc.b '             QA and Playtest            ' ;9
  2002.  dc.b '           Phil and The Wolves          ' ;0
  2003.  dc.b '                                        ' ;1
  2004.  
  2005.  dc.b '    Serial Link and 3D Object Editor:   ' ;4
  2006.  dc.b '                   by                   ' ;5
  2007.  dc.b '            Charles Blessing            ' ;6
  2008.  dc.b '                                        ' ;7
  2009.  dc.b '                Graphics:               ' ;8
  2010.  dc.b '                   by                   ' ;9
  2011.  dc.b '              Mike  Oakley              ' ;0
  2012.  dc.b '                                        ' ;1
  2013.  dc.b '             Title  Picture             ' ;2
  2014.  dc.b '                   by                   ' ;3
  2015.  dc.b '               Mike Green               ' ;4
  2016.  dc.b '                                        ' ;5
  2017.  dc.b ' Inspiration, incentive, moral support, ' ;6
  2018.  dc.b '     level design and plenty of tea     ' ;7
  2019.  dc.b '         generously supplied by         ' ;8
  2020.  dc.b '                                        ' ;9
  2021.  dc.b '              Jackie  Lang              ' ;0
  2022.  dc.b '                                        ' ;1
  2023.  dc.b '    Music for the last demo composed    ' ;2
  2024.  dc.b '       by the inexpressibly evil:       ' ;3
  2025.  dc.b '                                        ' ;8
  2026.  dc.b '            *BAD* BEN CHANTER           ' ;9
  2027.  dc.b '                                        ' ;0
  2028.  dc.b '    Sadly no room for music this time   ' ;1
  2029.  dc.b '                                        ' ;7
  2030.  dc.b '                                        ' ;7
  2031.  
  2032. CREDITMENU_OPTS:
  2033.  dc.w 0,0,1,1
  2034.  dc.w -1
  2035.  
  2036.  
  2037. ;      0123456789012345678901234567890123456789
  2038.  dc.b '                                        ' ;0
  2039.  dc.b '                                        ' ;1
  2040.  dc.b '                                        ' ;2
  2041.  dc.b '                                        ' ;3
  2042.  dc.b '                                        ' ;4
  2043.  dc.b '                                        ' ;5
  2044.  dc.b '                                        ' ;6
  2045.  dc.b '                                        ' ;7
  2046.  dc.b '                                        ' ;8
  2047.  dc.b '                                        ' ;9
  2048.  dc.b '                                        ' ;0
  2049.  dc.b '                                        ' ;1
  2050.  dc.b '                                        ' ;2
  2051.  dc.b '                                        ' ;3
  2052.  dc.b '                                        ' ;4
  2053.  dc.b '                                        ' ;5
  2054.  dc.b '                                        ' ;6
  2055.  dc.b '                                        ' ;7
  2056.  dc.b '                                        ' ;8
  2057.  dc.b '                                        ' ;9
  2058.  dc.b '                                        ' ;0
  2059.  dc.b '                                        ' ;1
  2060.  dc.b '                                        ' ;2
  2061.  dc.b '                                        ' ;3
  2062.  dc.b '                                        ' ;4
  2063.  dc.b '                                        ' ;5
  2064.  dc.b '                                        ' ;6
  2065.  dc.b '                                        ' ;7
  2066.  dc.b '                                        ' ;8
  2067.  dc.b '                                        ' ;9
  2068.  dc.b '                                        ' ;0
  2069.  dc.b '                                        ' ;1
  2070.  
  2071.  
  2072. ********************************************************
  2073.  
  2074. PUTIN32:
  2075.  move.w #31,d2
  2076. p32loop:
  2077.  moveq #0,d5
  2078.  move.l (a0)+,d3
  2079.  move.w d3,d4
  2080.  swap d3
  2081.  move.b d4,d5
  2082.  lsr.w #8,d4
  2083.  
  2084.  muls d0,d3
  2085.  muls d0,d4
  2086.  muls d0,d5
  2087.  lsr.l #8,d3
  2088.  lsr.l #8,d4
  2089.  lsr.l #8,d5
  2090.  move.w d3,d6
  2091.  swap d3
  2092.  move.w d6,d3
  2093.  move.w d4,d6
  2094.  swap d4
  2095.  move.w d6,d4
  2096.  move.w d5,d6
  2097.  swap d5
  2098.  move.w d6,d5
  2099.  and.w #%11110000,d3
  2100.  and.w #%11110000,d4
  2101.  and.w #%11110000,d5
  2102.  lsl.w #4,d3
  2103.  add.w d4,d3
  2104.  lsr.w #4,d5
  2105.  add.w d5,d3
  2106.  move.w d3,2(a1)
  2107.  swap d3
  2108.  swap d4
  2109.  swap d5
  2110.  and.w #%1111,d3
  2111.  and.w #%1111,d4
  2112.  and.w #%1111,d5
  2113.  lsl.w #8,d3
  2114.  lsl.w #4,d4
  2115.  add.w d4,d3
  2116.  add.w d5,d3
  2117.  move.w d3,2+(132*4)(a1)
  2118.  addq #4,a1
  2119.  dbra d2,p32loop
  2120.  
  2121.  
  2122.  rts
  2123.  
  2124. **************************************
  2125.  
  2126. FADEAMOUNT: dc.w 0
  2127. FADEVAL: dc.w 0
  2128.  
  2129. FADEUPTITLE:
  2130.  
  2131.  move.w FADEVAL,d0
  2132.  move.w FADEAMOUNT,d1
  2133. fadeuploop:
  2134.  
  2135.  move.l #TITLEPAL,a0
  2136.  move.l #TITLEPALCOP,a1
  2137.  
  2138. wvb:
  2139.  btst #5,$dff000+intreqrl
  2140.  beq.s wvb
  2141.  move.w #$20,$dff000+intreq 
  2142.  
  2143.  bsr PUTIN32
  2144.  add.w #4,a1
  2145.  bsr PUTIN32
  2146.  add.w #4,a1
  2147.  bsr PUTIN32
  2148.  add.w #4,a1
  2149.  bsr PUTIN32
  2150.  
  2151.  addq.w #4,d0
  2152.  dbra d1,fadeuploop
  2153.  
  2154.  subq #4,d0
  2155.  move.w d0,FADEVAL
  2156.  
  2157.  rts
  2158.  
  2159. CLEARTITLEPAL:
  2160.  PRSDP
  2161.  move.l #TITLEPALCOP,a0
  2162.  move.w #7,d1
  2163. clrpal:
  2164.  move.w #31,d0
  2165. clr32
  2166.  move.w #0,2(a0)
  2167.  addq #4,a0
  2168.  dbra d0,clr32
  2169.  addq #4,a0
  2170.  dbra d1,clrpal
  2171.  PRSDQ
  2172.  rts
  2173.  
  2174. FADEDOWNTITLE:
  2175.  
  2176.  move.w FADEVAL,d0
  2177.  move.w FADEAMOUNT,d1
  2178. fadedownloop:
  2179.  
  2180.  move.l #TITLEPAL,a0
  2181.  move.l #TITLEPALCOP,a1
  2182.  
  2183. .wvb:
  2184.  btst #5,$dff000+intreqrl
  2185.  beq.s .wvb
  2186.  move.w #$20,$dff000+intreq 
  2187.  
  2188.  bsr PUTIN32
  2189.  add.w #4,a1
  2190.  bsr PUTIN32
  2191.  add.w #4,a1
  2192.  bsr PUTIN32
  2193.  add.w #4,a1
  2194.  bsr PUTIN32
  2195.  
  2196.  subq.w #4,d0
  2197.  dbra d1,fadedownloop
  2198.  
  2199.  addq #4,d0
  2200.  move.w d0,FADEVAL
  2201.  
  2202.  rts
  2203.  
  2204. LOADTITLESCRN2:
  2205.  
  2206.  
  2207.  move.l #MEMF_CLEAR,d1
  2208.  move.l #52400,d0
  2209.  move.l 4.w,a6
  2210.  jsr    _LVOAllocMem(a6)
  2211.  tst.l  d0
  2212.  beq    .nomem
  2213.  
  2214.  move.l d0,tempptr
  2215.  
  2216.  move.l #TITLESCRNNAME2,d1
  2217.  move.l #1005,d2
  2218.  move.l doslib,a6
  2219.  jsr -30(a6)
  2220.  move.l d0,handle
  2221.  move.l d0,d1
  2222.  move.l doslib,a6
  2223. ; move.l TITLESCRNADDR,d2
  2224.  move.l tempptr,d2
  2225.  move.l #10240*7,d3
  2226.  jsr -42(a6)
  2227.  move.l doslib,a6
  2228.  move.l handle,d1
  2229.  jsr -36(a6)
  2230.  
  2231.     
  2232.  move.l TITLESCRNADDR,a0
  2233.  move.l tempptr,d0
  2234.  
  2235.  moveq #0,d1
  2236.  lea WorkSpace,a1
  2237.  lea $0,a2
  2238.  jsr unLHA
  2239.  
  2240.   move.l tempptr,a1
  2241.  move.l #52400,d0
  2242.  CALLEXEC FreeMem
  2243.   
  2244. .nomem
  2245.  
  2246.  rts
  2247.  
  2248. tempptr dc.l 0
  2249.  
  2250.  
  2251. GETTITLEMEM:
  2252.  move.l #2,d1
  2253.  move.l #10240*7,d0
  2254.  move.l 4.w,a6
  2255.  jsr -198(a6)
  2256.  move.l d0,TITLESCRNADDR
  2257.  
  2258.  move.l #$dff000-$2cdfe4,a4
  2259.  
  2260.  move.l #2,d1
  2261.  move.l #258*16*5,d0
  2262.  move.l 4.w,a6
  2263.  jsr -198(a6)
  2264.  move.l d0,OPTSPRADDR
  2265.  
  2266.  rts
  2267.  
  2268. ProtChkJLev1:
  2269.  
  2270. PROTSETUP:
  2271.  incbin "ab3:includes/protsetupenc"
  2272.  
  2273. ; Need to: Decode protection calling
  2274. ; routine
  2275. ; use null values to call it and erase
  2276. ; it from memory
  2277. ; erase this routine and return.
  2278.  
  2279. ; include "ab3:source/protsetup"
  2280.  
  2281.  
  2282. RELEASETITLEMEM:
  2283.  move.l TITLESCRNADDR,d1
  2284.  move.l d1,a1
  2285.  move.l #10240*7,d0
  2286.  move.l 4.w,a6
  2287.  jsr -210(a6)
  2288.  
  2289.  move.l OPTSPRADDR,d1
  2290.  move.l d1,a1
  2291.  move.l #258*80,d0
  2292.  move.l 4.w,a6
  2293.  jsr -210(a6)
  2294.  rts
  2295.  
  2296.  
  2297. PROTCALLENC:
  2298. ; incbin "ab3:source/protcallenc.bin
  2299.  
  2300. ; one pass, all instructions executed.
  2301. ; must call protection routine,store
  2302. ; value somewhere, call ask routine,
  2303. ; compare returned value, if correct
  2304. ; set up all values, then return.
  2305.  
  2306.  include "ab3:source/protcallenc"
  2307.  
  2308. ENDPROT:
  2309.  
  2310. LOADTITLESCRN:
  2311.  
  2312.  move.l #TITLESCRNNAME,d1
  2313.  move.l #1005,d2
  2314.  move.l doslib,a6
  2315.  jsr -30(a6)
  2316.  move.l d0,handle
  2317.  move.l d0,d1
  2318.  move.l doslib,a6
  2319.  move.l TITLESCRNADDR,d2
  2320.  move.l #10240*7,d3
  2321.  jsr -42(a6)
  2322.  move.l doslib,a6
  2323.  move.l handle,d1
  2324.  jsr -36(a6)
  2325.  
  2326.  rts
  2327.  
  2328. RVAL2: dc.w 0
  2329.  
  2330. SETUPTITLESCRN:
  2331.  
  2332.  PRSDR
  2333.  move.l #OPTCOP,a0
  2334.  move.l #rain,a1
  2335.  move.w #255,d0
  2336. putinrain:
  2337.  move.w (a1)+,d1
  2338.  move.w d1,6(a0)
  2339.  move.w d1,6+4(a0)
  2340.  move.w d1,6+8(a0)
  2341.  move.w d1,6+12(a0)
  2342.  add.w #4*14,a0
  2343.  
  2344.  dbra d0,putinrain
  2345.  
  2346. ; Put addr into copper.
  2347.  move.l OPTSPRADDR,d0
  2348.  move.w d0,tsp0l
  2349.  swap d0
  2350.  move.w d0,tsp0h
  2351.  swap d0
  2352.  add.l #258*16,d0
  2353.  move.w d0,tsp1l
  2354.  swap d0
  2355.  move.w d0,tsp1h
  2356.  swap d0
  2357.  add.l #258*16,d0
  2358.  move.w d0,tsp2l
  2359.  swap d0
  2360.  move.w d0,tsp2h
  2361.  swap d0
  2362.  add.l #258*16,d0
  2363.  move.w d0,tsp3l
  2364.  swap d0
  2365.  move.w d0,tsp3h
  2366.  swap d0
  2367.  add.l #258*16,d0
  2368.  move.w d0,tsp4l
  2369.  swap d0
  2370.  move.w d0,tsp4h
  2371.  
  2372.  move.l #nullspr,d0
  2373.  move.w d0,tsp5l
  2374.  move.w d0,tsp6l
  2375.  move.w d0,tsp7l
  2376.  swap d0
  2377.  move.w d0,tsp5h
  2378.  move.w d0,tsp6h
  2379.  move.w d0,tsp7h 
  2380.  
  2381.  move.l TITLESCRNADDR,d0
  2382.  move.w d0,ts1l
  2383.  swap d0
  2384.  move.w d0,ts1h
  2385.  swap d0
  2386.  add.l #10240,d0
  2387.  move.w d0,ts2l
  2388.  swap d0
  2389.  move.w d0,ts2h
  2390.  swap d0
  2391.  add.l #10240,d0
  2392.  move.w d0,ts3l
  2393.  swap d0
  2394.  move.w d0,ts3h
  2395.  swap d0
  2396.  add.l #10240,d0
  2397.  move.w d0,ts4l
  2398.  swap d0
  2399.  move.w d0,ts4h
  2400.  swap d0
  2401.  add.l #10240,d0
  2402.  move.w d0,ts5l
  2403.  swap d0
  2404.  move.w d0,ts5h
  2405.  swap d0
  2406.  add.l #10240,d0
  2407.  move.w d0,ts6l
  2408.  swap d0
  2409.  move.w d0,ts6h
  2410.  swap d0
  2411.  add.l #10240,d0
  2412.  move.w d0,ts7l
  2413.  swap d0
  2414.  move.w d0,ts7h
  2415.  rts 
  2416.  
  2417. RVAL1: dc.w 0
  2418.  
  2419. DummyAdds:
  2420.  dc.l dummy-78935450
  2421.  dc.l dummy-78935450
  2422.  dc.l dummy-78935450
  2423.  dc.l dummy-78935450
  2424.  dc.l dummy-78935450
  2425.  dc.l dummy-78935450
  2426.  dc.l dummy-78935450
  2427.  dc.l dummy-78935450
  2428.  dc.l dummy-78935450
  2429.  dc.l dummy-78935450
  2430.  
  2431. dummycall
  2432.  dc.w $4e75-123
  2433.  
  2434. protspace: ds.l 200
  2435.  
  2436.  include "ab3:source/LEVEL_BLURB"
  2437.  
  2438. font:
  2439.  incbin "OptFont"
  2440.  
  2441. rain: incbin "optcop"
  2442.